/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Prog / B-C / COMPARE

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 43 4f 4d 50 41 52 | 45 00 00 00 00 00 00 00 |..COMPAR|E.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 4d 53 42 41 4d 53 42 | 41 01 00 00 00 00 00 00 |.MSBAMSB|A.......|
|00000050| 00 00 00 00 00 23 d2 00 | 00 02 7e 9c de 59 9e 9c |.....#..|..~..Y..|
|00000060| de 59 9e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Y......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 bb c5 00 00 |........|........|
|00000080| 31 30 20 52 45 4d 20 46 | 69 6c 65 20 43 6f 6d 70 |10 REM F|ile Comp|
|00000090| 61 72 69 73 6f 6e 20 50 | 72 6f 67 72 61 6d 2e 20 |arison P|rogram. |
|000000a0| 20 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 38 34 |  Copyri|ght 1984|
|000000b0| 20 4a 6f 68 6e 20 57 2e | 20 42 61 78 74 65 72 2e | John W.| Baxter.|
|000000c0| 0d 34 30 20 52 45 4d 20 | 49 6e 70 75 74 3a 20 20 |.40 REM |Input:  |
|000000d0| 54 77 6f 20 66 69 6c 65 | 73 2c 20 77 68 69 63 68 |Two file|s, which|
|000000e0| 20 63 61 6e 20 62 65 20 | 70 72 6f 63 65 73 73 65 | can be |processe|
|000000f0| 64 20 62 79 20 42 41 53 | 49 43 20 61 73 20 74 65 |d by BAS|IC as te|
|00000100| 78 74 20 66 69 6c 65 73 | 2e 0d 35 30 20 52 45 4d |xt files|..50 REM|
|00000110| 20 4f 75 74 70 75 74 3a | 20 20 41 20 6c 69 73 74 | Output:|  A list|
|00000120| 69 6e 67 20 6f 66 20 74 | 68 65 20 64 69 66 66 65 |ing of t|he diffe|
|00000130| 72 65 6e 63 65 73 2c 20 | 6f 6e 20 61 20 6c 69 6e |rences, |on a lin|
|00000140| 65 2d 62 79 2d 6c 69 6e | 65 20 62 61 73 69 73 2c |e-by-lin|e basis,|
|00000150| 20 0d 36 30 20 52 45 4d | 20 20 20 20 20 20 20 20 | .60 REM|        |
|00000160| 20 20 20 20 20 20 62 65 | 74 77 65 65 6e 20 74 68 |      be|tween th|
|00000170| 65 20 69 6e 70 75 74 20 | 66 69 6c 65 73 2e 20 20 |e input |files.  |
|00000180| 0d 37 30 20 52 45 4d 20 | 54 68 65 20 70 72 6f 67 |.70 REM |The prog|
|00000190| 72 61 6d 20 61 74 74 65 | 6d 70 74 73 20 74 6f 20 |ram atte|mpts to |
|000001a0| 68 61 6e 64 6c 65 20 63 | 61 73 65 73 20 69 6e 20 |handle c|ases in |
|000001b0| 77 68 69 63 68 20 65 78 | 74 72 61 20 6c 69 6e 65 |which ex|tra line|
|000001c0| 73 20 0d 38 30 20 52 45 | 4d 20 65 78 69 73 74 20 |s .80 RE|M exist |
|000001d0| 69 6e 20 6f 6e 65 20 6f | 66 20 74 68 65 20 66 69 |in one o|f the fi|
|000001e0| 6c 65 73 2c 20 62 79 20 | 73 65 61 72 63 68 69 6e |les, by |searchin|
|000001f0| 67 20 62 6f 74 68 20 66 | 69 6c 65 73 20 75 6e 74 |g both f|iles unt|
|00000200| 69 6c 20 65 71 75 61 6c | 20 6c 69 6e 65 73 0d 39 |il equal| lines.9|
|00000210| 30 20 52 45 4d 20 61 72 | 65 20 64 69 73 63 6f 76 |0 REM ar|e discov|
|00000220| 65 72 65 64 2e 0d 31 30 | 30 20 47 4f 54 4f 20 31 |ered..10|0 GOTO 1|
|00000230| 30 30 30 0d 35 30 30 20 | 52 45 4d 20 47 65 74 20 |000.500 |REM Get |
|00000240| 6e 65 78 74 20 6c 69 6e | 65 20 66 72 6f 6d 20 66 |next lin|e from f|
|00000250| 69 6c 65 20 49 46 49 4c | 45 2e 0d 35 31 30 20 49 |ile IFIL|E..510 I|
|00000260| 46 20 49 47 45 54 28 49 | 46 49 4c 45 29 20 54 48 |F IGET(I|FILE) TH|
|00000270| 45 4e 20 36 30 30 0d 35 | 32 30 20 20 20 4c 49 4e |EN 600.5|20   LIN|
|00000280| 45 20 49 4e 50 55 54 20 | 23 49 46 49 4c 45 2c 20 |E INPUT |#IFILE, |
|00000290| 54 4e 45 58 54 28 49 46 | 49 4c 45 29 0d 35 33 30 |TNEXT(IF|ILE).530|
|000002a0| 20 20 47 4f 54 4f 20 36 | 33 30 0d 36 30 30 20 54 |  GOTO 6|30.600 T|
|000002b0| 4e 45 58 54 28 49 46 49 | 4c 45 29 3d 54 28 49 46 |NEXT(IFI|LE)=T(IF|
|000002c0| 49 4c 45 2c 20 46 49 52 | 53 54 28 49 46 49 4c 45 |ILE, FIR|ST(IFILE|
|000002d0| 29 29 0d 36 30 32 20 54 | 28 49 46 49 4c 45 2c 20 |)).602 T|(IFILE, |
|000002e0| 46 49 52 53 54 28 49 46 | 49 4c 45 29 29 3d 22 22 |FIRST(IF|ILE))=""|
|000002f0| 0d 36 31 30 20 46 49 52 | 53 54 28 49 46 49 4c 45 |.610 FIR|ST(IFILE|
|00000300| 29 3d 46 49 52 53 54 28 | 49 46 49 4c 45 29 2b 31 |)=FIRST(|IFILE)+1|
|00000310| 0d 36 32 30 20 49 46 20 | 46 49 52 53 54 28 49 46 |.620 IF |FIRST(IF|
|00000320| 49 4c 45 29 3c 3d 4c 49 | 4d 49 54 28 49 46 49 4c |ILE)<=LI|MIT(IFIL|
|00000330| 45 29 20 54 48 45 4e 20 | 36 33 30 0d 36 32 32 20 |E) THEN |630.622 |
|00000340| 20 20 49 47 45 54 28 49 | 46 49 4c 45 29 3d 30 3a |  IGET(I|FILE)=0:|
|00000350| 20 46 49 52 53 54 28 49 | 46 49 4c 45 29 3d 30 3a | FIRST(I|FILE)=0:|
|00000360| 20 4c 49 4d 49 54 28 49 | 46 49 4c 45 29 3d 30 0d | LIMIT(I|FILE)=0.|
|00000370| 36 33 30 20 43 4f 55 4e | 54 28 49 46 49 4c 45 29 |630 COUN|T(IFILE)|
|00000380| 3d 43 4f 55 4e 54 28 49 | 46 49 4c 45 29 2b 31 0d |=COUNT(I|FILE)+1.|
|00000390| 36 34 30 20 52 45 54 55 | 52 4e 0d 37 30 30 20 52 |640 RETU|RN.700 R|
|000003a0| 45 4d 20 50 72 69 6e 74 | 20 61 20 6c 69 6e 65 20 |EM Print| a line |
|000003b0| 54 50 52 49 4e 54 2c 20 | 77 69 74 68 20 6c 69 6e |TPRINT, |with lin|
|000003c0| 65 20 6e 75 6d 62 65 72 | 20 4c 49 4e 45 4e 4f 2e |e number| LINENO.|
|000003d0| 20 20 0d 37 30 32 20 46 | 4f 52 20 43 3d 31 20 54 |  .702 F|OR C=1 T|
|000003e0| 4f 20 4c 45 4e 28 54 50 | 52 49 4e 54 29 0d 37 30 |O LEN(TP|RINT).70|
|000003f0| 34 20 20 20 49 46 20 4d | 49 44 24 28 54 50 52 49 |4   IF M|ID$(TPRI|
|00000400| 4e 54 2c 20 43 2c 20 31 | 29 20 3c 20 22 20 22 20 |NT, C, 1|) < " " |
|00000410| 54 48 45 4e 20 4d 49 44 | 24 28 54 50 52 49 4e 54 |THEN MID|$(TPRINT|
|00000420| 2c 20 43 2c 20 31 29 20 | 3d 20 54 43 4f 4e 54 52 |, C, 1) |= TCONTR|
|00000430| 4f 4c 0d 37 30 36 20 20 | 20 4e 45 58 54 0d 37 31 |OL.706  | NEXT.71|
|00000440| 30 20 50 52 49 4e 54 20 | 23 4c 46 49 4c 45 2c 20 |0 PRINT |#LFILE, |
|00000450| 55 53 49 4e 47 20 22 23 | 2c 23 23 23 20 20 26 22 |USING "#|,###  &"|
|00000460| 3b 20 4c 49 4e 45 4e 4f | 2c 20 54 50 52 49 4e 54 |; LINENO|, TPRINT|
|00000470| 0d 37 32 30 20 52 45 54 | 55 52 4e 0d 37 33 30 20 |.720 RET|URN.730 |
|00000480| 52 45 4d 20 45 6e 68 61 | 6e 63 65 20 66 6f 72 20 |REM Enha|nce for |
|00000490| 63 6f 6e 74 72 6f 6c 20 | 63 68 61 72 73 20 26 20 |control |chars & |
|000004a0| 73 70 65 63 69 61 6c 20 | 63 61 73 65 73 2e 0d 31 |special |cases..1|
|000004b0| 30 30 30 20 43 4c 53 0d | 31 30 30 32 20 43 4c 45 |000 CLS.|1002 CLE|
|000004c0| 41 52 20 2c 32 34 30 30 | 30 0d 31 30 31 30 20 50 |AR ,2400|0.1010 P|
|000004d0| 52 49 4e 54 3a 20 50 52 | 49 4e 54 20 22 54 65 78 |RINT: PR|INT "Tex|
|000004e0| 74 20 66 69 6c 65 20 63 | 6f 6d 70 61 72 65 2e 20 |t file c|ompare. |
|000004f0| 20 20 43 6f 70 79 72 69 | 67 68 74 20 22 3b 20 43 |  Copyri|ght "; C|
|00000500| 48 52 24 28 31 36 39 29 | 3b 0d 31 30 31 32 20 50 |HR$(169)|;.1012 P|
|00000510| 52 49 4e 54 20 22 31 39 | 38 34 20 20 4a 6f 68 6e |RINT "19|84  John|
|00000520| 20 57 2e 20 42 61 78 74 | 65 72 22 0d 31 30 32 30 | W. Baxt|er".1020|
|00000530| 20 50 52 49 4e 54 22 56 | 65 72 73 69 6f 6e 20 31 | PRINT"V|ersion 1|
|00000540| 2e 32 22 3b 20 43 48 52 | 24 28 31 36 37 29 3b 20 |.2"; CHR|$(167); |
|00000550| 22 20 20 4c 61 73 74 20 | 75 70 64 61 74 65 64 20 |"  Last |updated |
|00000560| 4a 75 6e 65 20 31 34 2c | 20 31 39 38 34 20 61 74 |June 14,| 1984 at|
|00000570| 20 32 31 31 35 22 0d 31 | 30 33 30 20 52 45 4d 20 | 2115".1|030 REM |
|00000580| 57 61 74 63 68 20 6f 75 | 74 20 66 6f 72 20 74 68 |Watch ou|t for th|
|00000590| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 21 0d 31 30 34 |e follow|ing!.104|
|000005a0| 30 20 44 45 46 49 4e 54 | 20 49 2d 4b 3a 20 44 45 |0 DEFINT| I-K: DE|
|000005b0| 46 53 54 52 20 54 0d 31 | 30 34 32 20 4f 50 54 49 |FSTR T.1|042 OPTI|
|000005c0| 4f 4e 20 42 41 53 45 20 | 31 0d 31 30 35 30 20 47 |ON BASE |1.1050 G|
|000005d0| 4f 53 55 42 20 35 30 30 | 30 30 3a 20 52 45 4d 20 |OSUB 500|00: REM |
|000005e0| 56 61 72 69 61 62 6c 65 | 20 64 65 66 69 6e 69 74 |Variable| definit|
|000005f0| 69 6f 6e 73 0d 31 30 36 | 30 20 47 4f 53 55 42 20 |ions.106|0 GOSUB |
|00000600| 34 30 30 30 30 3a 20 52 | 45 4d 20 55 73 65 72 20 |40000: R|EM User |
|00000610| 69 6e 70 75 74 20 72 6f | 75 74 69 6e 65 20 28 66 |input ro|utine (f|
|00000620| 69 6c 65 20 6e 61 6d 65 | 73 2c 20 70 61 72 61 6d |ile name|s, param|
|00000630| 65 74 65 72 73 29 0d 31 | 30 36 38 20 50 52 49 4e |eters).1|068 PRIN|
|00000640| 54 20 23 4c 46 49 4c 45 | 2c 0d 31 30 37 30 20 50 |T #LFILE|,.1070 P|
|00000650| 52 49 4e 54 20 23 4c 46 | 49 4c 45 2c 20 22 43 6f |RINT #LF|ILE, "Co|
|00000660| 6d 70 61 72 65 20 22 3b | 20 54 4e 41 4d 45 28 31 |mpare ";| TNAME(1|
|00000670| 29 3b 20 22 20 61 6e 64 | 20 22 3b 20 54 4e 41 4d |); " and| "; TNAM|
|00000680| 45 28 32 29 3b 20 0d 31 | 30 38 30 20 50 52 49 4e |E(2); .1|080 PRIN|
|00000690| 54 20 23 4c 46 49 4c 45 | 2c 20 22 20 6f 6e 20 22 |T #LFILE|, " on "|
|000006a0| 3b 20 44 41 54 45 24 3b | 20 22 20 61 74 20 22 3b |; DATE$;| " at ";|
|000006b0| 20 54 49 4d 45 24 0d 31 | 31 30 30 20 52 45 4d 20 | TIME$.1|100 REM |
|000006c0| 46 69 6c 65 73 20 61 72 | 65 20 69 6e 20 73 79 6e |Files ar|e in syn|
|000006d0| 63 68 0d 31 31 31 30 20 | 57 48 49 4c 45 20 28 4e |ch.1110 |WHILE (N|
|000006e0| 4f 54 20 45 4f 46 28 31 | 29 29 20 41 4e 44 20 28 |OT EOF(1|)) AND (|
|000006f0| 4e 4f 54 20 45 4f 46 28 | 32 29 29 0d 31 31 32 30 |NOT EOF(|2)).1120|
|00000700| 20 20 20 46 4f 52 20 49 | 46 49 4c 45 3d 31 20 54 |   FOR I|FILE=1 T|
|00000710| 4f 20 32 3a 20 47 4f 53 | 55 42 20 35 30 30 3a 20 |O 2: GOS|UB 500: |
|00000720| 4e 45 58 54 0d 31 31 33 | 30 20 20 20 49 46 20 54 |NEXT.113|0   IF T|
|00000730| 4e 45 58 54 28 31 29 3c | 3e 54 4e 45 58 54 28 32 |NEXT(1)<|>TNEXT(2|
|00000740| 29 20 54 48 45 4e 20 47 | 4f 53 55 42 20 32 30 30 |) THEN G|OSUB 200|
|00000750| 30 0d 31 31 34 30 20 20 | 20 57 45 4e 44 0d 31 31 |0.1140  | WEND.11|
|00000760| 35 30 20 46 4f 52 20 49 | 46 49 4c 45 3d 31 20 54 |50 FOR I|FILE=1 T|
|00000770| 4f 20 32 0d 31 31 36 30 | 20 20 20 49 46 20 4e 4f |O 2.1160|   IF NO|
|00000780| 54 20 45 4f 46 28 49 46 | 49 4c 45 29 20 54 48 45 |T EOF(IF|ILE) THE|
|00000790| 4e 20 47 4f 53 55 42 20 | 33 30 30 30 3a 20 52 45 |N GOSUB |3000: RE|
|000007a0| 4d 20 52 65 70 6f 72 74 | 20 65 78 74 72 61 20 6c |M Report| extra l|
|000007b0| 69 6e 65 73 2e 0d 31 31 | 37 30 20 20 20 4e 45 58 |ines..11|70   NEX|
|000007c0| 54 0d 31 31 38 30 20 43 | 4c 4f 53 45 0d 31 31 39 |T.1180 C|LOSE.119|
|000007d0| 30 20 50 52 49 4e 54 3a | 20 50 52 49 4e 54 20 22 |0 PRINT:| PRINT "|
|000007e0| 43 6f 6d 70 61 72 65 20 | 63 6f 6d 70 6c 65 74 65 |Compare |complete|
|000007f0| 64 2e 20 20 22 3b 0d 31 | 31 39 32 20 49 46 20 49 |d.  ";.1|192 IF I|
|00000800| 53 44 49 46 20 54 48 45 | 4e 20 50 52 49 4e 54 20 |SDIF THE|N PRINT |
|00000810| 22 43 68 65 63 6b 20 64 | 69 66 66 65 72 65 6e 63 |"Check d|ifferenc|
|00000820| 65 73 2e 22 0d 31 32 30 | 30 20 49 46 20 49 53 53 |es.".120|0 IF ISS|
|00000830| 43 52 45 45 4e 20 41 4e | 44 20 49 53 44 49 46 20 |CREEN AN|D ISDIF |
|00000840| 54 48 45 4e 20 50 52 49 | 4e 54 3a 20 50 52 49 4e |THEN PRI|NT: PRIN|
|00000850| 54 0d 31 32 31 30 20 45 | 4e 44 0d 32 30 30 30 20 |T.1210 E|ND.2000 |
|00000860| 52 45 4d 20 50 72 6f 63 | 65 73 73 20 66 69 6c 65 |REM Proc|ess file|
|00000870| 20 64 69 66 66 65 72 65 | 6e 63 65 20 6f 74 68 65 | differe|nce othe|
|00000880| 72 20 74 68 61 6e 20 65 | 78 74 72 61 20 74 65 78 |r than e|xtra tex|
|00000890| 74 20 61 74 20 65 6e 64 | 0d 32 30 31 30 20 46 4f |t at end|.2010 FO|
|000008a0| 52 20 49 3d 31 20 54 4f | 20 32 0d 32 30 32 30 20 |R I=1 TO| 2.2020 |
|000008b0| 20 20 42 4f 54 54 4f 4d | 28 49 29 3d 43 4f 55 4e |  BOTTOM|(I)=COUN|
|000008c0| 54 28 49 29 0d 32 30 33 | 30 20 20 20 54 28 49 2c |T(I).203|0   T(I,|
|000008d0| 31 29 3d 54 4e 45 58 54 | 28 49 29 0d 32 30 34 30 |1)=TNEXT|(I).2040|
|000008e0| 20 20 20 4c 41 53 54 28 | 49 29 3d 31 0d 32 30 35 |   LAST(|I)=1.205|
|000008f0| 30 20 20 20 4e 45 58 54 | 0d 32 30 36 30 20 52 45 |0   NEXT|.2060 RE|
|00000900| 4d 20 55 4e 54 49 4c 20 | 52 65 73 79 6e 63 68 72 |M UNTIL |Resynchr|
|00000910| 6f 6e 69 7a 65 64 20 6f | 72 20 6f 75 74 20 6f 66 |onized o|r out of|
|00000920| 20 73 70 61 63 65 20 69 | 6e 20 61 72 72 61 79 73 | space i|n arrays|
|00000930| 0d 32 30 37 30 20 49 46 | 49 4c 45 3d 31 3a 20 4a |.2070 IF|ILE=1: J|
|00000940| 46 49 4c 45 3d 32 0d 32 | 30 38 30 20 52 45 4d 20 |FILE=2.2|080 REM |
|00000950| 52 45 50 45 41 54 0d 32 | 30 39 30 20 20 20 49 46 |REPEAT.2|090   IF|
|00000960| 20 45 4f 46 20 28 49 46 | 49 4c 45 29 20 54 48 45 | EOF (IF|ILE) THE|
|00000970| 4e 20 32 31 30 30 0d 32 | 30 39 32 20 20 20 20 20 |N 2100.2|092     |
|00000980| 47 4f 53 55 42 20 35 30 | 30 0d 32 30 39 34 20 20 |GOSUB 50|0.2094  |
|00000990| 20 20 20 4c 41 53 54 28 | 49 46 49 4c 45 29 3d 4c |   LAST(|IFILE)=L|
|000009a0| 41 53 54 28 49 46 49 4c | 45 29 2b 31 0d 32 30 39 |AST(IFIL|E)+1.209|
|000009b0| 36 20 20 20 20 20 54 28 | 49 46 49 4c 45 2c 20 4c |6     T(|IFILE, L|
|000009c0| 41 53 54 28 49 46 49 4c | 45 29 29 3d 54 4e 45 58 |AST(IFIL|E))=TNEX|
|000009d0| 54 28 49 46 49 4c 45 29 | 0d 32 31 30 30 20 20 20 |T(IFILE)|.2100   |
|000009e0| 52 45 4d 20 53 69 6e 67 | 6c 65 2d 6c 69 6e 65 20 |REM Sing|le-line |
|000009f0| 72 65 73 79 6e 63 68 20 | 74 65 73 74 20 6f 6e 6c |resynch |test onl|
|00000a00| 79 2e 0d 32 31 31 30 20 | 20 20 49 3d 31 0d 32 31 |y..2110 |  I=1.21|
|00000a10| 32 30 20 20 20 20 20 49 | 46 20 54 4e 45 58 54 28 |20     I|F TNEXT(|
|00000a20| 49 46 49 4c 45 29 3d 54 | 28 4a 46 49 4c 45 2c 49 |IFILE)=T|(JFILE,I|
|00000a30| 29 20 54 48 45 4e 20 32 | 32 30 30 0d 32 31 33 30 |) THEN 2|200.2130|
|00000a40| 20 20 20 20 20 49 3d 49 | 2b 31 0d 32 31 34 30 20 |     I=I|+1.2140 |
|00000a50| 20 20 20 20 49 46 20 49 | 3c 3d 20 4c 41 53 54 28 |    IF I|<= LAST(|
|00000a60| 4a 46 49 4c 45 29 20 54 | 48 45 4e 20 32 31 32 30 |JFILE) T|HEN 2120|
|00000a70| 0d 32 31 35 30 20 20 20 | 49 46 20 45 4f 46 28 49 |.2150   |IF EOF(I|
|00000a80| 46 49 4c 45 29 20 41 4e | 44 20 45 4f 46 20 28 4a |FILE) AN|D EOF (J|
|00000a90| 46 49 4c 45 29 20 54 48 | 45 4e 20 32 38 30 30 0d |FILE) TH|EN 2800.|
|00000aa0| 32 31 36 30 20 20 20 49 | 46 20 4c 41 53 54 28 49 |2160   I|F LAST(I|
|00000ab0| 46 49 4c 45 29 3d 4d 41 | 58 4c 49 4e 45 53 20 54 |FILE)=MA|XLINES T|
|00000ac0| 48 45 4e 20 32 35 30 30 | 0d 32 31 37 30 20 20 20 |HEN 2500|.2170   |
|00000ad0| 53 57 41 50 20 49 46 49 | 4c 45 2c 4a 46 49 4c 45 |SWAP IFI|LE,JFILE|
|00000ae0| 0d 32 31 38 30 20 20 20 | 47 4f 54 4f 20 32 30 39 |.2180   |GOTO 209|
|00000af0| 30 3a 20 52 45 4d 20 55 | 4e 54 49 4c 20 52 65 73 |0: REM U|NTIL Res|
|00000b00| 79 6e 63 68 72 6f 6e 69 | 7a 65 64 20 7b 6f 72 20 |ynchroni|zed {or |
|00000b10| 6f 75 74 20 6f 66 20 61 | 72 72 61 79 20 73 70 61 |out of a|rray spa|
|00000b20| 63 65 7d 0d 32 32 30 30 | 20 52 45 4d 20 52 65 73 |ce}.2200| REM Res|
|00000b30| 79 6e 63 68 72 6f 6e 69 | 7a 65 64 20 62 79 20 6d |ynchroni|zed by m|
|00000b40| 61 74 63 68 69 6e 67 20 | 6c 69 6e 65 2e 0d 32 32 |atching |line..22|
|00000b50| 31 30 20 49 46 20 49 3d | 31 20 54 48 45 4e 20 32 |10 IF I=|1 THEN 2|
|00000b60| 36 30 30 3a 20 52 45 4d | 20 45 78 74 72 61 20 74 |600: REM| Extra t|
|00000b70| 65 78 74 20 62 65 74 77 | 65 65 6e 20 6c 69 6e 65 |ext betw|een line|
|00000b80| 73 2e 0d 32 32 31 32 20 | 49 53 44 49 46 3d 31 0d |s..2212 |ISDIF=1.|
|00000b90| 32 32 32 30 20 50 52 49 | 4e 54 20 23 4c 46 49 4c |2220 PRI|NT #LFIL|
|00000ba0| 45 2c 3a 20 50 52 49 4e | 54 20 23 4c 46 49 4c 45 |E,: PRIN|T #LFILE|
|00000bb0| 2c 20 22 44 69 66 66 65 | 72 65 6e 63 65 3a 22 0d |, "Diffe|rence:".|
|00000bc0| 32 32 32 32 20 50 52 49 | 4e 54 20 23 4c 46 49 4c |2222 PRI|NT #LFIL|
|00000bd0| 45 2c 20 22 4c 69 6e 65 | 73 20 66 72 6f 6d 20 22 |E, "Line|s from "|
|00000be0| 3b 20 54 4e 41 4d 45 28 | 49 46 49 4c 45 29 3b 20 |; TNAME(|IFILE); |
|00000bf0| 22 3a 22 0d 32 32 33 30 | 20 46 4f 52 20 4a 3d 31 |":".2230| FOR J=1|
|00000c00| 20 54 4f 20 4c 41 53 54 | 28 49 46 49 4c 45 29 2d | TO LAST|(IFILE)-|
|00000c10| 31 0d 32 32 34 30 20 20 | 20 4c 49 4e 45 4e 4f 3d |1.2240  | LINENO=|
|00000c20| 42 4f 54 54 4f 4d 28 49 | 46 49 4c 45 29 2b 4a 2d |BOTTOM(I|FILE)+J-|
|00000c30| 31 3a 20 54 50 52 49 4e | 54 3d 20 54 28 49 46 49 |1: TPRIN|T= T(IFI|
|00000c40| 4c 45 2c 4a 29 3a 20 47 | 4f 53 55 42 20 37 30 30 |LE,J): G|OSUB 700|
|00000c50| 0d 32 32 34 32 20 20 20 | 54 28 49 46 49 4c 45 2c |.2242   |T(IFILE,|
|00000c60| 20 4a 29 3d 22 22 0d 32 | 32 35 30 20 20 20 4e 45 | J)="".2|250   NE|
|00000c70| 58 54 0d 32 32 36 30 20 | 50 52 49 4e 54 20 23 4c |XT.2260 |PRINT #L|
|00000c80| 46 49 4c 45 2c 20 22 4c | 69 6e 65 73 20 66 72 6f |FILE, "L|ines fro|
|00000c90| 6d 20 22 3b 20 54 4e 41 | 4d 45 28 4a 46 49 4c 45 |m "; TNA|ME(JFILE|
|00000ca0| 29 3b 20 22 3a 22 0d 32 | 32 37 30 20 46 4f 52 20 |); ":".2|270 FOR |
|00000cb0| 4a 3d 31 20 54 4f 20 49 | 2d 31 0d 32 32 38 30 20 |J=1 TO I|-1.2280 |
|00000cc0| 20 20 4c 49 4e 45 4e 4f | 3d 42 4f 54 54 4f 4d 28 |  LINENO|=BOTTOM(|
|00000cd0| 4a 46 49 4c 45 29 2b 4a | 2d 31 3a 20 54 50 52 49 |JFILE)+J|-1: TPRI|
|00000ce0| 4e 54 3d 20 54 28 4a 46 | 49 4c 45 2c 4a 29 3a 20 |NT= T(JF|ILE,J): |
|00000cf0| 47 4f 53 55 42 20 37 30 | 30 0d 32 32 38 32 20 20 |GOSUB 70|0.2282  |
|00000d00| 20 54 28 4a 46 49 4c 45 | 2c 20 4a 29 3d 22 22 0d | T(JFILE|, J)="".|
|00000d10| 32 32 39 30 20 20 20 4e | 45 58 54 0d 32 33 30 30 |2290   N|EXT.2300|
|00000d20| 20 49 46 20 49 3d 4c 41 | 53 54 28 4a 46 49 4c 45 | IF I=LA|ST(JFILE|
|00000d30| 29 20 54 48 45 4e 20 52 | 45 54 55 52 4e 0d 32 33 |) THEN R|ETURN.23|
|00000d40| 31 30 20 43 4f 55 4e 54 | 28 4a 46 49 4c 45 29 3d |10 COUNT|(JFILE)=|
|00000d50| 42 4f 54 54 4f 4d 28 4a | 46 49 4c 45 29 2b 49 2d |BOTTOM(J|FILE)+I-|
|00000d60| 31 3a 20 42 4f 54 54 4f | 4d 28 4a 46 49 4c 45 29 |1: BOTTO|M(JFILE)|
|00000d70| 3d 43 4f 55 4e 54 28 4a | 46 49 4c 45 29 2b 31 0d |=COUNT(J|FILE)+1.|
|00000d80| 32 33 32 30 20 46 4f 52 | 20 4a 3d 31 20 54 4f 20 |2320 FOR| J=1 TO |
|00000d90| 4c 41 53 54 28 4a 46 49 | 4c 45 29 2d 49 0d 32 33 |LAST(JFI|LE)-I.23|
|00000da0| 33 30 20 20 20 54 28 4a | 46 49 4c 45 2c 4a 29 3d |30   T(J|FILE,J)=|
|00000db0| 54 28 4a 46 49 4c 45 2c | 49 2b 4a 29 0d 32 33 34 |T(JFILE,|I+J).234|
|00000dc0| 30 20 20 20 54 28 4a 46 | 49 4c 45 2c 49 2b 4a 29 |0   T(JF|ILE,I+J)|
|00000dd0| 3d 22 22 0d 32 33 35 30 | 20 20 20 4e 45 58 54 0d |="".2350|   NEXT.|
|00000de0| 32 33 35 38 20 49 46 20 | 46 49 52 53 54 28 4a 46 |2358 IF |FIRST(JF|
|00000df0| 49 4c 45 29 3d 30 20 54 | 48 45 4e 20 32 34 31 30 |ILE)=0 T|HEN 2410|
|00000e00| 0d 32 33 36 30 20 57 48 | 49 4c 45 20 46 49 52 53 |.2360 WH|ILE FIRS|
|00000e10| 54 28 4a 46 49 4c 45 29 | 3c 3d 4c 49 4d 49 54 28 |T(JFILE)|<=LIMIT(|
|00000e20| 4a 46 49 4c 45 29 0d 32 | 33 37 30 20 20 20 54 28 |JFILE).2|370   T(|
|00000e30| 4a 46 49 4c 45 2c 4a 29 | 3d 54 28 4a 46 49 4c 45 |JFILE,J)|=T(JFILE|
|00000e40| 2c 46 49 52 53 54 28 4a | 46 49 4c 45 29 29 0d 32 |,FIRST(J|FILE)).2|
|00000e50| 33 38 30 20 20 20 54 28 | 4a 46 49 4c 45 2c 46 49 |380   T(|JFILE,FI|
|00000e60| 52 53 54 28 4a 46 49 4c | 45 29 29 3d 22 22 0d 32 |RST(JFIL|E))="".2|
|00000e70| 33 39 30 20 20 20 4a 3d | 4a 2b 31 3a 20 46 49 52 |390   J=|J+1: FIR|
|00000e80| 53 54 28 4a 46 49 4c 45 | 29 3d 46 49 52 53 54 28 |ST(JFILE|)=FIRST(|
|00000e90| 4a 46 49 4c 45 29 2b 31 | 0d 32 34 30 30 20 20 20 |JFILE)+1|.2400   |
|00000ea0| 57 45 4e 44 0d 32 34 31 | 30 20 4c 49 4d 49 54 28 |WEND.241|0 LIMIT(|
|00000eb0| 4a 46 49 4c 45 29 3d 4a | 2d 31 3a 20 46 49 52 53 |JFILE)=J|-1: FIRS|
|00000ec0| 54 28 4a 46 49 4c 45 29 | 3d 31 0d 32 34 32 30 20 |T(JFILE)|=1.2420 |
|00000ed0| 49 47 45 54 28 4a 46 49 | 4c 45 29 3d 31 0d 32 34 |IGET(JFI|LE)=1.24|
|00000ee0| 33 30 20 52 45 54 55 52 | 4e 0d 32 35 30 30 20 52 |30 RETUR|N.2500 R|
|00000ef0| 45 4d 20 54 6f 6f 20 6d | 75 63 68 20 64 69 66 66 |EM Too m|uch diff|
|00000f00| 65 72 65 6e 63 65 20 74 | 6f 20 72 65 73 79 6e 63 |erence t|o resync|
|00000f10| 68 72 6f 6e 69 7a 65 2e | 20 20 54 65 6d 70 6f 72 |hronize.|  Tempor|
|00000f20| 61 72 79 3a 20 47 69 76 | 65 20 75 70 21 0d 32 35 |ary: Giv|e up!.25|
|00000f30| 31 30 20 50 52 49 4e 54 | 20 23 4c 46 49 4c 45 2c |10 PRINT| #LFILE,|
|00000f40| 20 3a 20 50 52 49 4e 54 | 20 23 4c 46 49 4c 45 2c | : PRINT| #LFILE,|
|00000f50| 20 22 46 69 6c 65 73 20 | 61 72 65 20 74 6f 6f 20 | "Files |are too |
|00000f60| 64 69 66 66 65 72 65 6e | 74 20 74 6f 20 72 65 70 |differen|t to rep|
|00000f70| 6f 72 74 21 22 0d 32 35 | 32 30 20 49 53 44 49 46 |ort!".25|20 ISDIF|
|00000f80| 3d 31 0d 32 35 33 30 20 | 47 4f 54 4f 20 31 31 38 |=1.2530 |GOTO 118|
|00000f90| 30 0d 32 36 30 30 20 52 | 45 4d 20 52 65 70 6f 72 |0.2600 R|EM Repor|
|00000fa0| 74 20 65 78 74 72 61 20 | 74 65 78 74 20 69 6e 20 |t extra |text in |
|00000fb0| 49 46 49 4c 45 20 62 65 | 74 77 65 65 6e 20 6c 69 |IFILE be|tween li|
|00000fc0| 6e 65 73 20 6f 66 20 4a | 46 49 4c 45 0d 32 36 31 |nes of J|FILE.261|
|00000fd0| 30 20 50 52 49 4e 54 20 | 23 4c 46 49 4c 45 2c 20 |0 PRINT |#LFILE, |
|00000fe0| 3a 20 50 52 49 4e 54 20 | 23 4c 46 49 4c 45 2c 20 |: PRINT |#LFILE, |
|00000ff0| 22 45 78 74 72 61 20 74 | 65 78 74 20 6f 6e 20 22 |"Extra t|ext on "|
|00001000| 3b 20 54 4e 41 4d 45 28 | 49 46 49 4c 45 29 3b 0d |; TNAME(|IFILE);.|
|00001010| 32 36 31 32 20 50 52 49 | 4e 54 20 23 4c 46 49 4c |2612 PRI|NT #LFIL|
|00001020| 45 2c 20 22 2c 20 62 65 | 74 77 65 65 6e 20 6c 69 |E, ", be|tween li|
|00001030| 6e 65 73 22 3b 20 42 4f | 54 54 4f 4d 28 4a 46 49 |nes"; BO|TTOM(JFI|
|00001040| 4c 45 29 2d 31 3b 0d 32 | 36 31 33 20 50 52 49 4e |LE)-1;.2|613 PRIN|
|00001050| 54 20 23 4c 46 49 4c 45 | 2c 20 22 61 6e 64 22 3b |T #LFILE|, "and";|
|00001060| 20 42 4f 54 54 4f 4d 28 | 4a 46 49 4c 45 29 3b 0d | BOTTOM(|JFILE);.|
|00001070| 32 36 31 34 20 50 52 49 | 4e 54 20 23 4c 46 49 4c |2614 PRI|NT #LFIL|
|00001080| 45 2c 20 22 6f 66 20 22 | 3b 20 54 4e 41 4d 45 28 |E, "of "|; TNAME(|
|00001090| 4a 46 49 4c 45 29 0d 32 | 36 31 38 20 49 53 44 49 |JFILE).2|618 ISDI|
|000010a0| 46 3d 31 0d 32 36 32 30 | 20 46 4f 52 20 49 3d 31 |F=1.2620| FOR I=1|
|000010b0| 20 54 4f 20 4c 41 53 54 | 28 49 46 49 4c 45 29 2d | TO LAST|(IFILE)-|
|000010c0| 31 0d 32 36 33 30 20 20 | 20 4c 49 4e 45 4e 4f 3d |1.2630  | LINENO=|
|000010d0| 42 4f 54 54 4f 4d 28 49 | 46 49 4c 45 29 2b 49 2d |BOTTOM(I|FILE)+I-|
|000010e0| 31 3a 20 54 50 52 49 4e | 54 3d 54 28 49 46 49 4c |1: TPRIN|T=T(IFIL|
|000010f0| 45 2c 49 29 3a 20 47 4f | 53 55 42 20 37 30 30 0d |E,I): GO|SUB 700.|
|00001100| 32 36 34 30 20 20 20 54 | 28 49 46 49 4c 45 2c 49 |2640   T|(IFILE,I|
|00001110| 29 3d 22 22 0d 32 36 35 | 30 20 20 20 4e 45 58 54 |)="".265|0   NEXT|
|00001120| 0d 32 36 38 30 20 46 4f | 52 20 4a 3d 31 20 54 4f |.2680 FO|R J=1 TO|
|00001130| 20 4c 41 53 54 28 4a 46 | 49 4c 45 29 2d 31 0d 32 | LAST(JF|ILE)-1.2|
|00001140| 36 39 30 20 20 20 54 28 | 4a 46 49 4c 45 2c 4a 29 |690   T(|JFILE,J)|
|00001150| 3d 54 28 4a 46 49 4c 45 | 2c 4a 2b 31 29 0d 32 37 |=T(JFILE|,J+1).27|
|00001160| 30 30 20 20 20 4e 45 58 | 54 0d 32 37 31 30 20 54 |00   NEX|T.2710 T|
|00001170| 28 4a 46 49 4c 45 2c 4a | 29 3d 22 22 0d 32 37 32 |(JFILE,J|)="".272|
|00001180| 30 20 57 48 49 4c 45 20 | 28 46 49 52 53 54 28 4a |0 WHILE |(FIRST(J|
|00001190| 46 49 4c 45 29 3e 30 29 | 20 41 4e 44 20 28 46 49 |FILE)>0)| AND (FI|
|000011a0| 52 53 54 28 4a 46 49 4c | 45 29 3c 3d 4c 49 4d 49 |RST(JFIL|E)<=LIMI|
|000011b0| 54 28 4a 46 49 4c 45 29 | 29 0d 32 37 33 30 20 20 |T(JFILE)|).2730  |
|000011c0| 20 54 28 4a 46 49 4c 45 | 2c 4a 29 3d 54 28 4a 46 | T(JFILE|,J)=T(JF|
|000011d0| 49 4c 45 2c 46 49 52 53 | 54 28 4a 46 49 4c 45 29 |ILE,FIRS|T(JFILE)|
|000011e0| 29 3a 20 54 28 4a 46 49 | 4c 45 2c 20 46 49 52 53 |): T(JFI|LE, FIRS|
|000011f0| 54 28 4a 46 49 4c 45 29 | 29 3d 22 22 0d 32 37 34 |T(JFILE)|)="".274|
|00001200| 30 20 20 20 4a 3d 4a 2b | 31 3a 20 46 49 52 53 54 |0   J=J+|1: FIRST|
|00001210| 28 4a 46 49 4c 45 29 3d | 46 49 52 53 54 28 4a 46 |(JFILE)=|FIRST(JF|
|00001220| 49 4c 45 29 2b 31 0d 32 | 37 35 30 20 20 20 57 45 |ILE)+1.2|750   WE|
|00001230| 4e 44 0d 32 37 36 30 20 | 4c 49 4d 49 54 28 4a 46 |ND.2760 |LIMIT(JF|
|00001240| 49 4c 45 29 3d 4a 2d 31 | 0d 32 37 38 30 20 49 46 |ILE)=J-1|.2780 IF|
|00001250| 20 4c 49 4d 49 54 28 4a | 46 49 4c 45 29 3e 30 20 | LIMIT(J|FILE)>0 |
|00001260| 54 48 45 4e 20 32 37 38 | 36 0d 32 37 38 32 20 20 |THEN 278|6.2782  |
|00001270| 20 46 49 52 53 54 28 4a | 46 49 4c 45 29 3d 30 3a | FIRST(J|FILE)=0:|
|00001280| 20 49 47 45 54 28 4a 46 | 49 4c 45 29 3d 30 3a 20 | IGET(JF|ILE)=0: |
|00001290| 47 4f 54 4f 20 32 37 39 | 30 0d 32 37 38 36 20 20 |GOTO 279|0.2786  |
|000012a0| 20 46 49 52 53 54 28 4a | 46 49 4c 45 29 3d 31 3a | FIRST(J|FILE)=1:|
|000012b0| 20 49 47 45 54 28 4a 46 | 49 4c 45 29 3d 31 0d 32 | IGET(JF|ILE)=1.2|
|000012c0| 37 38 37 20 20 20 43 4f | 55 4e 54 28 4a 46 49 4c |787   CO|UNT(JFIL|
|000012d0| 45 29 3d 42 4f 54 54 4f | 4d 28 4a 46 49 4c 45 29 |E)=BOTTO|M(JFILE)|
|000012e0| 0d 32 37 38 38 20 20 20 | 42 4f 54 54 4f 4d 28 4a |.2788   |BOTTOM(J|
|000012f0| 46 49 4c 45 29 3d 43 4f | 55 4e 54 28 4a 46 49 4c |FILE)=CO|UNT(JFIL|
|00001300| 45 29 2b 31 0d 32 37 39 | 30 20 52 45 54 55 52 4e |E)+1.279|0 RETURN|
|00001310| 0d 32 38 30 30 20 52 45 | 4d 20 42 6f 74 68 20 66 |.2800 RE|M Both f|
|00001320| 69 6c 65 73 20 68 61 76 | 65 20 45 6e 64 20 6f 66 |iles hav|e End of|
|00001330| 20 46 69 6c 65 2c 20 61 | 6e 64 20 61 20 72 65 73 | File, a|nd a res|
|00001340| 79 6e 63 68 72 6f 6e 69 | 7a 65 20 69 73 20 69 6e |ynchroni|ze is in|
|00001350| 20 70 72 6f 67 72 65 73 | 73 2e 0d 32 38 31 30 20 | progres|s..2810 |
|00001360| 50 52 49 4e 54 20 23 4c | 46 49 4c 45 2c 3a 20 50 |PRINT #L|FILE,: P|
|00001370| 52 49 4e 54 20 23 4c 46 | 49 4c 45 2c 20 22 44 69 |RINT #LF|ILE, "Di|
|00001380| 66 66 65 72 65 6e 63 65 | 3a 20 20 6e 6f 6e 2d 6d |fference|:  non-m|
|00001390| 61 74 63 68 69 6e 67 20 | 22 3b 0d 32 38 31 32 20 |atching |";.2812 |
|000013a0| 50 52 49 4e 54 20 23 4c | 46 49 4c 45 2c 20 22 6c |PRINT #L|FILE, "l|
|000013b0| 69 6e 65 73 20 61 74 20 | 65 6e 64 73 20 6f 66 20 |ines at |ends of |
|000013c0| 74 68 65 20 66 69 6c 65 | 73 2e 22 0d 32 38 32 30 |the file|s.".2820|
|000013d0| 20 49 53 44 49 46 3d 31 | 0d 32 38 33 30 20 46 4f | ISDIF=1|.2830 FO|
|000013e0| 52 20 49 46 49 4c 45 3d | 31 20 54 4f 20 32 0d 32 |R IFILE=|1 TO 2.2|
|000013f0| 38 34 30 20 20 20 50 52 | 49 4e 54 20 23 4c 46 49 |840   PR|INT #LFI|
|00001400| 4c 45 2c 20 22 4c 69 6e | 65 73 20 66 72 6f 6d 20 |LE, "Lin|es from |
|00001410| 22 3b 20 54 4e 41 4d 45 | 28 49 46 49 4c 45 29 3b |"; TNAME|(IFILE);|
|00001420| 20 22 3a 22 0d 32 38 35 | 30 20 20 20 46 4f 52 20 | ":".285|0   FOR |
|00001430| 49 3d 31 20 54 4f 20 4c | 41 53 54 28 49 46 49 4c |I=1 TO L|AST(IFIL|
|00001440| 45 29 0d 32 38 36 30 20 | 20 20 20 20 4c 49 4e 45 |E).2860 |    LINE|
|00001450| 4e 4f 3d 42 4f 54 54 4f | 4d 28 49 46 49 4c 45 29 |NO=BOTTO|M(IFILE)|
|00001460| 2b 49 2d 31 3a 20 54 50 | 52 49 4e 54 3d 54 28 49 |+I-1: TP|RINT=T(I|
|00001470| 46 49 4c 45 2c 49 29 3a | 20 47 4f 53 55 42 20 37 |FILE,I):| GOSUB 7|
|00001480| 30 30 0d 32 38 37 30 20 | 20 20 20 20 54 28 49 46 |00.2870 |    T(IF|
|00001490| 49 4c 45 2c 49 29 3d 22 | 22 0d 32 38 38 30 20 20 |ILE,I)="|".2880  |
|000014a0| 20 20 20 4e 45 58 54 0d | 32 38 39 30 20 20 20 49 |   NEXT.|2890   I|
|000014b0| 46 20 49 46 49 4c 45 3d | 31 20 54 48 45 4e 20 50 |F IFILE=|1 THEN P|
|000014c0| 52 49 4e 54 23 4c 46 49 | 4c 45 2c 0d 32 39 30 30 |RINT#LFI|LE,.2900|
|000014d0| 20 20 20 4e 45 58 54 0d | 32 39 31 30 20 52 45 54 |   NEXT.|2910 RET|
|000014e0| 55 52 4e 0d 33 30 30 30 | 20 52 45 4d 20 44 69 73 |URN.3000| REM Dis|
|000014f0| 70 6c 61 79 20 65 78 74 | 72 61 20 74 65 78 74 20 |play ext|ra text |
|00001500| 6f 6e 20 65 6e 64 20 6f | 66 20 61 6e 20 69 6e 70 |on end o|f an inp|
|00001510| 75 74 20 66 69 6c 65 2e | 0d 33 30 31 30 20 49 53 |ut file.|.3010 IS|
|00001520| 44 49 46 3d 31 0d 33 30 | 32 30 20 50 52 49 4e 54 |DIF=1.30|20 PRINT|
|00001530| 20 23 4c 46 49 4c 45 2c | 0d 33 30 32 32 20 50 52 | #LFILE,|.3022 PR|
|00001540| 49 4e 54 20 23 4c 46 49 | 4c 45 2c 20 22 45 78 74 |INT #LFI|LE, "Ext|
|00001550| 72 61 20 74 65 78 74 20 | 6f 6e 20 65 6e 64 20 6f |ra text |on end o|
|00001560| 66 20 66 69 6c 65 20 22 | 3b 20 54 4e 41 4d 45 28 |f file "|; TNAME(|
|00001570| 49 46 49 4c 45 29 3b 20 | 22 3a 22 0d 33 30 33 30 |IFILE); |":".3030|
|00001580| 20 57 48 49 4c 45 20 4e | 4f 54 20 45 4f 46 28 49 | WHILE N|OT EOF(I|
|00001590| 46 49 4c 45 29 0d 33 30 | 34 30 20 20 20 47 4f 53 |FILE).30|40   GOS|
|000015a0| 55 42 20 35 30 30 0d 33 | 30 35 30 20 20 20 4c 49 |UB 500.3|050   LI|
|000015b0| 4e 45 4e 4f 3d 43 4f 55 | 4e 54 28 49 46 49 4c 45 |NENO=COU|NT(IFILE|
|000015c0| 29 3a 20 54 50 52 49 4e | 54 3d 20 54 4e 45 58 54 |): TPRIN|T= TNEXT|
|000015d0| 28 49 46 49 4c 45 29 3a | 20 47 4f 53 55 42 20 37 |(IFILE):| GOSUB 7|
|000015e0| 30 30 0d 33 30 36 30 20 | 20 20 57 45 4e 44 0d 33 |00.3060 |  WEND.3|
|000015f0| 30 37 30 20 52 45 54 55 | 52 4e 0d 34 30 30 30 30 |070 RETU|RN.40000|
|00001600| 20 52 45 4d 20 54 65 6d | 70 6f 72 61 72 79 20 75 | REM Tem|porary u|
|00001610| 73 65 72 20 69 6e 74 65 | 72 61 63 74 69 6f 6e 2e |ser inte|raction.|
|00001620| 20 20 48 6f 70 65 66 75 | 6c 6c 79 2c 20 74 6f 20 |  Hopefu|lly, to |
|00001630| 62 65 20 72 65 70 6c 61 | 63 65 64 20 62 79 20 61 |be repla|ced by a|
|00001640| 0d 34 30 30 31 30 20 52 | 45 4d 20 20 20 20 70 73 |.40010 R|EM    ps|
|00001650| 65 75 64 6f 2d 64 69 61 | 6c 6f 67 20 62 6f 78 2e |eudo-dia|log box.|
|00001660| 0d 34 30 30 32 30 20 49 | 46 49 4c 45 3d 31 0d 34 |.40020 I|FILE=1.4|
|00001670| 30 30 33 30 20 47 4f 53 | 55 42 20 34 31 30 30 30 |0030 GOS|UB 41000|
|00001680| 3a 20 52 45 4d 20 67 65 | 74 20 66 69 6c 65 20 6e |: REM ge|t file n|
|00001690| 61 6d 65 20 66 6f 72 20 | 66 69 6c 65 20 31 2e 0d |ame for |file 1..|
|000016a0| 34 30 30 34 30 20 49 46 | 49 4c 45 3d 32 0d 34 30 |40040 IF|ILE=2.40|
|000016b0| 30 35 30 20 47 4f 53 55 | 42 20 34 31 30 30 30 3a |050 GOSU|B 41000:|
|000016c0| 20 52 45 4d 20 47 65 74 | 20 66 69 6c 65 20 6e 61 | REM Get| file na|
|000016d0| 6d 65 20 66 6f 72 20 66 | 69 6c 65 20 32 2e 0d 34 |me for f|ile 2..4|
|000016e0| 30 30 36 30 20 47 4f 53 | 55 42 20 34 32 30 30 30 |0060 GOS|UB 42000|
|000016f0| 3a 20 52 45 4d 20 47 65 | 74 20 6f 74 68 65 72 20 |: REM Ge|t other |
|00001700| 75 73 65 72 20 69 6e 70 | 75 74 0d 34 30 30 37 30 |user inp|ut.40070|
|00001710| 20 46 4f 52 20 49 3d 31 | 20 54 4f 20 32 0d 34 30 | FOR I=1| TO 2.40|
|00001720| 30 38 30 20 20 20 4f 4e | 20 45 52 52 4f 52 20 47 |080   ON| ERROR G|
|00001730| 4f 54 4f 20 34 30 32 30 | 30 0d 34 30 30 39 30 20 |OTO 4020|0.40090 |
|00001740| 20 20 4f 50 45 4e 20 54 | 4e 41 4d 45 28 49 29 20 |  OPEN T|NAME(I) |
|00001750| 46 4f 52 20 49 4e 50 55 | 54 20 41 53 20 23 49 0d |FOR INPU|T AS #I.|
|00001760| 34 30 31 30 30 20 20 20 | 4f 4e 20 45 52 52 4f 52 |40100   |ON ERROR|
|00001770| 20 47 4f 54 4f 20 30 0d | 34 30 31 31 30 20 20 20 | GOTO 0.|40110   |
|00001780| 4e 45 58 54 0d 34 30 31 | 32 30 20 4f 4e 20 45 52 |NEXT.401|20 ON ER|
|00001790| 52 4f 52 20 47 4f 54 4f | 20 34 30 33 30 30 0d 34 |ROR GOTO| 40300.4|
|000017a0| 30 31 33 30 20 4f 50 45 | 4e 20 54 4f 55 54 20 46 |0130 OPE|N TOUT F|
|000017b0| 4f 52 20 4f 55 54 50 55 | 54 20 41 53 20 23 4c 46 |OR OUTPU|T AS #LF|
|000017c0| 49 4c 45 0d 34 30 31 34 | 30 20 4f 4e 20 45 52 52 |ILE.4014|0 ON ERR|
|000017d0| 4f 52 20 47 4f 54 4f 20 | 30 0d 34 30 31 34 38 20 |OR GOTO |0.40148 |
|000017e0| 47 4f 53 55 42 20 34 30 | 34 30 30 3a 20 52 45 4d |GOSUB 40|400: REM|
|000017f0| 20 44 65 74 65 72 6d 69 | 6e 65 20 77 68 65 74 68 | Determi|ne wheth|
|00001800| 65 72 20 6f 75 74 70 75 | 74 20 69 73 20 53 43 52 |er outpu|t is SCR|
|00001810| 4e 3a 0d 34 30 31 35 30 | 20 49 46 20 49 53 53 43 |N:.40150| IF ISSC|
|00001820| 52 45 45 4e 20 54 48 45 | 4e 20 57 49 44 54 48 23 |REEN THE|N WIDTH#|
|00001830| 4c 46 49 4c 45 2c 20 36 | 30 20 45 4c 53 45 20 57 |LFILE, 6|0 ELSE W|
|00001840| 49 44 54 48 23 4c 46 49 | 4c 45 2c 37 39 0d 34 30 |IDTH#LFI|LE,79.40|
|00001850| 31 36 30 20 52 45 54 55 | 52 4e 0d 34 30 32 30 30 |160 RETU|RN.40200|
|00001860| 20 52 45 4d 20 45 72 72 | 6f 72 20 72 6f 75 74 69 | REM Err|or routi|
|00001870| 6e 65 20 66 6f 72 20 6f | 70 65 6e 69 6e 67 20 69 |ne for o|pening i|
|00001880| 6e 70 75 74 20 66 69 6c | 65 0d 34 30 32 31 30 20 |nput fil|e.40210 |
|00001890| 49 46 20 45 52 4c 3c 3e | 34 30 30 39 30 20 54 48 |IF ERL<>|40090 TH|
|000018a0| 45 4e 20 4f 4e 20 45 52 | 52 4f 52 20 47 4f 54 4f |EN ON ER|ROR GOTO|
|000018b0| 20 30 3a 20 52 45 4d 20 | 4c 65 74 20 42 41 53 49 | 0: REM |Let BASI|
|000018c0| 43 20 68 61 6e 64 6c 65 | 20 69 74 2e 20 0d 34 30 |C handle| it. .40|
|000018d0| 32 32 30 20 49 46 20 45 | 52 52 3c 3e 35 33 20 54 |220 IF E|RR<>53 T|
|000018e0| 48 45 4e 20 4f 4e 20 45 | 52 52 4f 52 20 47 4f 54 |HEN ON E|RROR GOT|
|000018f0| 4f 20 30 3a 20 52 45 4d | 20 4c 65 74 20 42 41 53 |O 0: REM| Let BAS|
|00001900| 49 43 20 68 61 6e 64 6c | 65 20 69 74 2e 0d 34 30 |IC handl|e it..40|
|00001910| 32 33 30 20 49 46 49 4c | 45 3d 49 0d 34 30 32 34 |230 IFIL|E=I.4024|
|00001920| 30 20 42 45 45 50 3a 20 | 50 52 49 4e 54 3a 20 50 |0 BEEP: |PRINT: P|
|00001930| 52 49 4e 54 20 22 46 69 | 6c 65 20 22 3b 20 54 4e |RINT "Fi|le "; TN|
|00001940| 41 4d 45 28 49 46 49 4c | 45 29 3b 20 22 20 6e 6f |AME(IFIL|E); " no|
|00001950| 74 20 66 6f 75 6e 64 2e | 22 0d 34 30 32 35 30 20 |t found.|".40250 |
|00001960| 4c 49 4e 45 20 49 4e 50 | 55 54 20 22 52 65 2d 65 |LINE INP|UT "Re-e|
|00001970| 6e 74 65 72 20 66 69 6c | 65 20 6e 61 6d 65 3a 20 |nter fil|e name: |
|00001980| 20 22 3b 20 54 4e 41 4d | 45 28 49 46 49 4c 45 29 | "; TNAM|E(IFILE)|
|00001990| 0d 34 30 32 36 30 20 52 | 45 53 55 4d 45 20 34 30 |.40260 R|ESUME 40|
|000019a0| 30 39 30 0d 34 30 33 30 | 30 20 52 45 4d 20 45 72 |090.4030|0 REM Er|
|000019b0| 72 6f 72 20 72 6f 75 74 | 69 6e 65 20 66 6f 72 20 |ror rout|ine for |
|000019c0| 6f 70 65 6e 69 6e 67 20 | 6f 75 74 70 75 74 20 66 |opening |output f|
|000019d0| 69 6c 65 0d 34 30 33 31 | 30 20 49 46 20 45 52 4c |ile.4031|0 IF ERL|
|000019e0| 3c 3e 34 30 31 33 30 20 | 54 48 45 4e 20 4f 4e 20 |<>40130 |THEN ON |
|000019f0| 45 52 52 4f 52 20 47 4f | 54 4f 20 30 3a 20 52 45 |ERROR GO|TO 0: RE|
|00001a00| 4d 20 4c 65 74 20 42 41 | 53 49 43 20 68 61 6e 64 |M Let BA|SIC hand|
|00001a10| 6c 65 20 69 74 2e 0d 34 | 30 33 32 30 20 42 45 45 |le it..4|0320 BEE|
|00001a20| 50 3a 20 50 52 49 4e 54 | 3a 20 50 52 49 4e 54 20 |P: PRINT|: PRINT |
|00001a30| 22 43 61 6e 6e 6f 74 20 | 6f 70 65 6e 20 22 3b 20 |"Cannot |open "; |
|00001a40| 54 4f 55 54 3b 20 22 20 | 61 73 20 6f 75 74 70 75 |TOUT; " |as outpu|
|00001a50| 74 2e 22 0d 34 30 33 33 | 30 20 4c 49 4e 45 20 49 |t.".4033|0 LINE I|
|00001a60| 4e 50 55 54 20 22 52 65 | 2d 65 6e 74 65 72 20 66 |NPUT "Re|-enter f|
|00001a70| 69 6c 65 20 6f 72 20 64 | 65 76 69 63 65 20 6e 61 |ile or d|evice na|
|00001a80| 6d 65 3a 20 20 22 3b 20 | 54 4f 55 54 0d 34 30 33 |me:  "; |TOUT.403|
|00001a90| 34 30 20 52 45 53 55 4d | 45 20 34 30 31 33 30 0d |40 RESUM|E 40130.|
|00001aa0| 34 30 34 30 30 20 46 4f | 52 20 49 3d 31 20 54 4f |40400 FO|R I=1 TO|
|00001ab0| 20 4c 45 4e 28 54 4f 55 | 54 29 0d 34 30 34 31 30 | LEN(TOU|T).40410|
|00001ac0| 20 20 20 54 3d 4d 49 44 | 24 28 54 4f 55 54 2c 20 |   T=MID|$(TOUT, |
|00001ad0| 49 2c 20 31 29 0d 34 30 | 34 32 30 20 20 20 49 46 |I, 1).40|420   IF|
|00001ae0| 20 28 54 3e 3d 22 61 22 | 29 20 41 4e 44 20 28 54 | (T>="a"|) AND (T|
|00001af0| 3c 3d 22 7a 22 29 20 54 | 48 45 4e 20 4d 49 44 24 |<="z") T|HEN MID$|
|00001b00| 28 54 4f 55 54 2c 20 49 | 2c 20 31 29 3d 20 43 48 |(TOUT, I|, 1)= CH|
|00001b10| 52 24 28 41 53 43 28 54 | 29 2d 33 32 29 0d 34 30 |R$(ASC(T|)-32).40|
|00001b20| 34 33 30 20 20 20 4e 45 | 58 54 0d 34 30 34 34 30 |430   NE|XT.40440|
|00001b30| 20 49 53 53 43 52 45 45 | 4e 20 3d 20 28 54 4f 55 | ISSCREE|N = (TOU|
|00001b40| 54 3d 22 53 43 52 4e 3a | 22 29 0d 34 30 34 34 32 |T="SCRN:|").40442|
|00001b50| 20 49 46 20 49 53 53 43 | 52 45 45 4e 20 54 48 45 | IF ISSC|REEN THE|
|00001b60| 4e 20 57 49 44 54 48 20 | 23 4c 46 49 4c 45 2c 20 |N WIDTH |#LFILE, |
|00001b70| 36 30 20 45 4c 53 45 20 | 57 49 44 54 48 20 23 4c |60 ELSE |WIDTH #L|
|00001b80| 46 49 4c 45 2c 20 37 39 | 0d 34 30 34 34 34 20 49 |FILE, 79|.40444 I|
|00001b90| 46 20 49 53 53 43 52 45 | 45 4e 20 54 48 45 4e 20 |F ISSCRE|EN THEN |
|00001ba0| 54 43 4f 4e 54 52 4f 4c | 3d 43 48 52 24 28 31 36 |TCONTROL|=CHR$(16|
|00001bb0| 35 29 20 45 4c 53 45 20 | 54 43 4f 4e 54 52 4f 4c |5) ELSE |TCONTROL|
|00001bc0| 20 3d 20 22 7e 22 0d 34 | 30 34 35 30 20 52 45 54 | = "~".4|0450 RET|
|00001bd0| 55 52 4e 0d 34 31 30 30 | 30 20 52 45 4d 20 52 6f |URN.4100|0 REM Ro|
|00001be0| 75 74 69 6e 65 20 74 6f | 20 69 6e 70 75 74 20 61 |utine to| input a|
|00001bf0| 6e 20 69 6e 70 75 74 20 | 66 69 6c 65 20 6e 61 6d |n input |file nam|
|00001c00| 65 0d 34 31 30 31 30 20 | 50 52 49 4e 54 20 22 45 |e.41010 |PRINT "E|
|00001c10| 6e 74 65 72 20 6e 61 6d | 65 20 6f 66 20 69 6e 70 |nter nam|e of inp|
|00001c20| 75 74 20 66 69 6c 65 20 | 22 3b 20 49 44 24 28 49 |ut file |"; ID$(I|
|00001c30| 46 49 4c 45 29 3b 20 22 | 3a 20 20 22 3b 0d 34 31 |FILE); "|:  ";.41|
|00001c40| 30 32 30 20 4c 49 4e 45 | 20 49 4e 50 55 54 20 54 |020 LINE| INPUT T|
|00001c50| 4e 41 4d 45 28 49 46 49 | 4c 45 29 0d 34 31 30 33 |NAME(IFI|LE).4103|
|00001c60| 30 20 52 45 54 55 52 4e | 0d 34 32 30 30 30 20 52 |0 RETURN|.42000 R|
|00001c70| 45 4d 20 53 74 75 62 3a | 20 20 67 65 74 73 20 75 |EM Stub:|  gets u|
|00001c80| 73 65 72 20 69 6e 70 75 | 74 20 6f 66 20 6f 75 74 |ser inpu|t of out|
|00001c90| 70 75 74 20 74 61 72 67 | 65 74 2c 20 73 65 74 73 |put targ|et, sets|
|00001ca0| 20 72 65 73 79 6e 63 68 | 20 74 6f 20 31 0d 34 32 | resynch| to 1.42|
|00001cb0| 30 31 30 20 54 4f 55 54 | 3d 22 73 63 72 6e 3a 22 |010 TOUT|="scrn:"|
|00001cc0| 0d 34 32 30 32 30 20 50 | 52 49 4e 54 20 22 53 65 |.42020 P|RINT "Se|
|00001cd0| 6e 64 20 6f 75 74 70 75 | 74 20 74 6f 3a 22 0d 34 |nd outpu|t to:".4|
|00001ce0| 32 30 33 30 20 50 52 49 | 4e 54 20 22 20 20 31 20 |2030 PRI|NT "  1 |
|00001cf0| 20 53 63 72 65 65 6e 22 | 0d 34 32 30 34 30 20 50 | Screen"|.42040 P|
|00001d00| 52 49 4e 54 20 22 20 20 | 32 20 20 50 72 69 6e 74 |RINT "  |2  Print|
|00001d10| 65 72 22 0d 34 32 30 35 | 30 20 50 52 49 4e 54 20 |er".4205|0 PRINT |
|00001d20| 22 20 20 33 20 20 46 69 | 6c 65 20 6f 72 20 6f 74 |"  3  Fi|le or ot|
|00001d30| 68 65 72 20 64 65 76 69 | 63 65 22 0d 34 32 30 36 |her devi|ce".4206|
|00001d40| 30 20 4c 49 4e 45 20 49 | 4e 50 55 54 20 22 20 20 |0 LINE I|NPUT "  |
|00001d50| 20 20 45 6e 74 65 72 20 | 63 68 6f 69 63 65 3a 20 |  Enter |choice: |
|00001d60| 20 22 3b 20 54 4f 55 54 | 0d 34 32 30 37 30 20 49 | "; TOUT|.42070 I|
|00001d70| 46 20 54 4f 55 54 3d 22 | 22 20 54 48 45 4e 20 49 |F TOUT="|" THEN I|
|00001d80| 3d 31 20 45 4c 53 45 20 | 49 3d 56 41 4c 28 54 4f |=1 ELSE |I=VAL(TO|
|00001d90| 55 54 29 0d 34 32 30 38 | 30 20 49 46 20 49 3c 31 |UT).4208|0 IF I<1|
|00001da0| 20 4f 52 20 49 3e 33 20 | 54 48 45 4e 20 42 45 45 | OR I>3 |THEN BEE|
|00001db0| 50 3a 20 47 4f 54 4f 20 | 34 32 30 36 30 0d 34 32 |P: GOTO |42060.42|
|00001dc0| 30 39 30 20 4f 4e 20 49 | 20 47 4f 54 4f 20 34 32 |090 ON I| GOTO 42|
|00001dd0| 31 30 30 2c 34 32 32 30 | 30 2c 34 32 33 30 30 0d |100,4220|0,42300.|
|00001de0| 34 32 31 30 30 20 54 4f | 55 54 3d 22 53 43 52 4e |42100 TO|UT="SCRN|
|00001df0| 3a 22 0d 34 32 31 32 30 | 20 47 4f 54 4f 20 34 32 |:".42120| GOTO 42|
|00001e00| 35 30 30 0d 34 32 32 30 | 30 20 54 4f 55 54 3d 22 |500.4220|0 TOUT="|
|00001e10| 4c 50 54 31 3a 22 0d 34 | 32 32 32 30 20 47 4f 54 |LPT1:".4|2220 GOT|
|00001e20| 4f 20 34 32 35 30 30 0d | 34 32 33 30 30 20 4c 49 |O 42500.|42300 LI|
|00001e30| 4e 45 20 49 4e 50 55 54 | 20 22 45 6e 74 65 72 20 |NE INPUT| "Enter |
|00001e40| 66 69 6c 65 20 6f 72 20 | 64 65 76 69 63 65 20 6e |file or |device n|
|00001e50| 61 6d 65 3a 20 20 22 3b | 20 54 4f 55 54 0d 34 32 |ame:  ";| TOUT.42|
|00001e60| 35 30 30 20 52 45 53 59 | 4e 43 48 3d 31 0d 34 32 |500 RESY|NCH=1.42|
|00001e70| 35 31 30 20 52 45 54 55 | 52 4e 0d 35 30 30 30 30 |510 RETU|RN.50000|
|00001e80| 20 52 45 4d 20 54 68 65 | 20 66 6f 6c 6c 6f 77 69 | REM The| followi|
|00001e90| 6e 67 20 64 65 66 69 6e | 65 73 20 61 6e 64 20 64 |ng defin|es and d|
|00001ea0| 65 73 63 72 69 62 65 73 | 20 61 6c 6c 20 70 72 6f |escribes| all pro|
|00001eb0| 67 72 61 6d 20 76 61 72 | 69 61 62 6c 65 73 2e 0d |gram var|iables..|
|00001ec0| 35 30 30 31 30 20 4d 41 | 58 4c 49 4e 45 53 3d 31 |50010 MA|XLINES=1|
|00001ed0| 30 30 3a 20 52 45 4d 20 | 4d 61 78 69 6d 75 6d 20 |00: REM |Maximum |
|00001ee0| 6c 69 6e 65 20 69 6e 64 | 69 63 65 73 20 66 6f 72 |line ind|ices for|
|00001ef0| 20 72 65 73 79 6e 63 68 | 20 61 74 74 65 6d 70 74 | resynch| attempt|
|00001f00| 0d 35 30 30 32 30 20 52 | 45 4d 20 41 62 6f 76 65 |.50020 R|EM Above|
|00001f10| 20 6d 75 73 74 20 62 65 | 20 65 71 75 61 6c 20 74 | must be| equal t|
|00001f20| 6f 20 74 68 65 20 73 65 | 63 6f 6e 64 20 64 69 6d |o the se|cond dim|
|00001f30| 65 6e 73 69 6f 6e 20 62 | 65 6c 6f 77 2e 0d 35 30 |ension b|elow..50|
|00001f40| 30 33 30 20 44 49 4d 20 | 54 28 32 2c 31 30 30 29 |030 DIM |T(2,100)|
|00001f50| 3a 20 52 45 4d 20 48 6f | 6c 64 73 20 75 70 20 74 |: REM Ho|lds up t|
|00001f60| 6f 20 31 30 30 20 6f 75 | 74 2d 6f 66 2d 73 79 6e |o 100 ou|t-of-syn|
|00001f70| 63 68 20 6c 69 6e 65 73 | 20 70 65 72 20 66 69 6c |ch lines| per fil|
|00001f80| 65 0d 35 30 30 34 30 20 | 44 49 4d 20 54 4e 45 58 |e.50040 |DIM TNEX|
|00001f90| 54 28 32 29 3a 20 52 45 | 4d 20 48 6f 6c 64 73 20 |T(2): RE|M Holds |
|00001fa0| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 20 66 6f 72 |current |line for|
|00001fb0| 20 65 61 63 68 20 66 69 | 6c 65 0d 35 30 30 35 30 | each fi|le.50050|
|00001fc0| 20 44 49 4d 20 43 4f 55 | 4e 54 28 32 29 3a 20 52 | DIM COU|NT(2): R|
|00001fd0| 45 4d 20 4c 69 6e 65 20 | 63 6f 75 6e 74 65 72 20 |EM Line |counter |
|00001fe0| 66 6f 72 20 65 61 63 68 | 20 66 69 6c 65 0d 35 30 |for each| file.50|
|00001ff0| 30 36 30 20 44 49 4d 20 | 42 4f 54 54 4f 4d 28 32 |060 DIM |BOTTOM(2|
|00002000| 29 3a 20 52 45 4d 20 4c | 69 6e 65 20 6e 75 6d 62 |): REM L|ine numb|
|00002010| 65 72 20 66 6f 72 20 54 | 28 78 2c 31 29 2c 20 77 |er for T|(x,1), w|
|00002020| 68 65 6e 20 54 20 69 6e | 20 75 73 65 2e 0d 35 30 |hen T in| use..50|
|00002030| 30 37 30 20 44 49 4d 20 | 50 54 52 28 32 29 3a 20 |070 DIM |PTR(2): |
|00002040| 52 45 4d 20 49 6e 64 65 | 78 20 69 6e 74 6f 20 54 |REM Inde|x into T|
|00002050| 28 78 2c 2e 2e 2e 29 0d | 35 30 30 38 30 20 44 49 |(x,...).|50080 DI|
|00002060| 4d 20 4c 49 4d 49 54 28 | 32 29 3a 20 52 45 4d 20 |M LIMIT(|2): REM |
|00002070| 48 69 67 68 65 73 74 20 | 54 28 78 2c 2e 2e 2e 29 |Highest |T(x,...)|
|00002080| 20 69 6e 20 75 73 65 20 | 62 79 20 69 6e 70 75 74 | in use |by input|
|00002090| 20 72 6f 75 74 69 6e 65 | 2e 0d 35 30 30 39 30 20 | routine|..50090 |
|000020a0| 44 49 4d 20 46 49 52 53 | 54 28 32 29 3a 20 52 45 |DIM FIRS|T(2): RE|
|000020b0| 4d 20 4c 6f 77 65 73 74 | 20 54 28 78 2c 2e 2e 2e |M Lowest| T(x,...|
|000020c0| 29 20 69 6e 20 75 73 65 | 20 62 79 20 69 6e 70 75 |) in use| by inpu|
|000020d0| 74 20 72 6f 75 74 69 6e | 65 2e 0d 35 30 30 39 32 |t routin|e..50092|
|000020e0| 20 44 49 4d 20 4c 41 53 | 54 28 32 29 3a 20 52 45 | DIM LAS|T(2): RE|
|000020f0| 4d 20 48 69 67 68 65 73 | 74 20 54 28 78 2c 2e 2e |M Highes|t T(x,..|
|00002100| 2e 29 20 69 6e 20 75 73 | 65 20 62 79 20 72 65 73 |.) in us|e by res|
|00002110| 79 6e 63 68 20 72 6f 75 | 74 69 6e 65 2e 0d 35 30 |ynch rou|tine..50|
|00002120| 31 30 30 20 49 3d 30 3a | 20 4a 3d 30 3a 20 52 45 |100 I=0:| J=0: RE|
|00002130| 4d 20 47 65 6e 65 72 61 | 6c 20 69 6e 74 65 67 65 |M Genera|l intege|
|00002140| 72 20 63 6f 75 6e 74 65 | 72 73 0d 35 30 31 31 30 |r counte|rs.50110|
|00002150| 20 49 46 49 4c 45 3d 30 | 3a 20 52 45 4d 20 53 65 | IFILE=0|: REM Se|
|00002160| 6c 65 63 74 73 20 46 49 | 4c 45 20 31 20 6f 72 20 |lects FI|LE 1 or |
|00002170| 32 2c 20 66 6f 72 20 69 | 6e 70 75 74 20 72 6f 75 |2, for i|nput rou|
|00002180| 74 69 6e 65 2c 20 65 74 | 63 0d 35 30 31 31 32 20 |tine, et|c.50112 |
|00002190| 4a 46 49 4c 45 3d 30 3a | 20 52 45 4d 20 52 65 73 |JFILE=0:| REM Res|
|000021a0| 79 6e 63 68 20 72 6f 75 | 74 69 6e 65 20 6b 65 65 |ynch rou|tine kee|
|000021b0| 70 73 20 74 68 69 73 20 | 74 68 65 20 6f 70 70 6f |ps this |the oppo|
|000021c0| 73 69 74 65 20 6f 66 20 | 49 46 49 4c 45 0d 35 30 |site of |IFILE.50|
|000021d0| 31 32 30 20 44 49 4d 20 | 49 47 45 54 28 32 29 3a |120 DIM |IGET(2):|
|000021e0| 20 52 45 4d 20 49 47 45 | 54 28 78 29 20 74 72 75 | REM IGE|T(x) tru|
|000021f0| 65 20 77 68 65 6e 20 22 | 69 6e 70 75 74 22 20 66 |e when "|input" f|
|00002200| 72 6f 6d 20 54 28 78 29 | 0d 35 30 31 33 30 20 4c |rom T(x)|.50130 L|
|00002210| 46 49 4c 45 3d 33 3a 20 | 52 45 4d 20 46 69 6c 65 |FILE=3: |REM File|
|00002220| 20 6e 75 6d 62 65 72 20 | 66 6f 72 20 6f 75 74 70 | number |for outp|
|00002230| 75 74 0d 35 30 31 34 30 | 20 44 49 4d 20 54 4e 41 |ut.50140| DIM TNA|
|00002240| 4d 45 28 32 29 3a 20 52 | 45 4d 20 4e 61 6d 65 73 |ME(2): R|EM Names|
|00002250| 20 6f 66 20 74 68 65 20 | 69 6e 70 75 74 20 66 69 | of the |input fi|
|00002260| 6c 65 73 0d 35 30 31 35 | 30 20 54 4f 55 54 3d 22 |les.5015|0 TOUT="|
|00002270| 22 3a 20 52 45 4d 20 4e | 61 6d 65 20 6f 66 20 74 |": REM N|ame of t|
|00002280| 68 65 20 6f 75 74 70 75 | 74 20 66 69 6c 65 20 6f |he outpu|t file o|
|00002290| 72 20 64 65 76 69 63 65 | 0d 35 30 31 35 32 20 54 |r device|.50152 T|
|000022a0| 3d 22 22 3a 20 52 45 4d | 20 55 73 65 64 20 61 73 |="": REM| Used as|
|000022b0| 20 74 65 6d 70 6f 72 61 | 72 79 20 69 6e 20 75 73 | tempora|ry in us|
|000022c0| 65 72 20 69 6e 70 75 74 | 20 72 6f 75 74 69 6e 65 |er input| routine|
|000022d0| 2e 0d 35 30 31 36 30 20 | 49 53 44 49 46 3d 30 3a |..50160 |ISDIF=0:|
|000022e0| 20 52 45 4d 20 54 52 55 | 45 20 77 68 65 6e 20 64 | REM TRU|E when d|
|000022f0| 69 66 66 65 72 65 6e 63 | 65 73 20 68 61 76 65 20 |ifferenc|es have |
|00002300| 62 65 65 6e 20 66 6f 75 | 6e 64 2e 0d 35 30 31 37 |been fou|nd..5017|
|00002310| 30 20 49 53 53 43 52 45 | 45 4e 3d 30 3a 20 52 45 |0 ISSCRE|EN=0: RE|
|00002320| 4d 20 54 52 55 45 20 77 | 68 65 6e 20 6f 75 74 70 |M TRUE w|hen outp|
|00002330| 75 74 20 69 73 20 74 6f | 20 53 43 52 4e 3a 0d 35 |ut is to| SCRN:.5|
|00002340| 30 31 38 30 20 52 45 53 | 59 4e 43 48 3d 30 3a 20 |0180 RES|YNCH=0: |
|00002350| 52 45 4d 20 4e 75 6d 62 | 65 72 20 6f 66 20 6c 69 |REM Numb|er of li|
|00002360| 6e 65 73 20 77 68 69 63 | 68 20 6d 75 73 74 20 6d |nes whic|h must m|
|00002370| 61 74 63 68 20 66 6f 72 | 20 72 65 73 79 6e 63 68 |atch for| resynch|
|00002380| 0d 35 30 31 39 30 20 44 | 49 4d 20 49 44 24 28 32 |.50190 D|IM ID$(2|
|00002390| 29 3a 20 52 45 4d 20 41 | 72 72 61 79 20 74 6f 20 |): REM A|rray to |
|000023a0| 69 64 65 6e 74 69 66 79 | 20 69 6e 70 75 74 20 66 |identify| input f|
|000023b0| 69 6c 65 73 0d 35 30 32 | 30 30 20 49 44 24 28 31 |iles.502|00 ID$(1|
|000023c0| 29 3d 22 6f 6e 65 22 3a | 20 49 44 24 28 32 29 3d |)="one":| ID$(2)=|
|000023d0| 22 74 77 6f 22 0d 35 30 | 32 31 30 20 54 43 4f 4e |"two".50|210 TCON|
|000023e0| 54 52 4f 4c 3d 43 48 52 | 24 28 31 36 35 29 3a 20 |TROL=CHR|$(165): |
|000023f0| 52 45 4d 20 54 68 65 20 | 63 65 6e 74 65 72 20 64 |REM The |center d|
|00002400| 6f 74 20 63 68 61 72 61 | 63 74 65 72 0d 35 30 32 |ot chara|cter.502|
|00002410| 32 30 20 43 3d 30 3a 20 | 52 45 4d 20 43 68 61 72 |20 C=0: |REM Char|
|00002420| 61 63 74 65 72 20 69 6e | 64 65 78 20 66 6f 72 20 |acter in|dex for |
|00002430| 63 6f 6e 74 72 6f 6c 20 | 63 68 61 72 20 72 65 6d |control |char rem|
|00002440| 6f 76 61 6c 0d 35 30 39 | 39 30 20 52 45 54 55 52 |oval.509|90 RETUR|
|00002450| 4e 0d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |N.......|........|
|00002460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002480| 00 00 01 00 00 00 02 15 | 00 00 01 15 00 00 00 69 |........|.......i|
|00002490| 12 00 03 a4 da 00 0a 80 | 01 80 01 00 ff 7f ff 00 |........|........|
|000024a0| 00 00 12 00 03 01 0e 5a | 08 16 31 00 22 41 4d 55 |.......Z|..1."AMU|
|000024b0| 07 43 4f 4d 50 41 52 45 | 02 00 00 00 4d 53 42 41 |.COMPARE|....MSBA|
|000024c0| 4d 53 42 41 01 00 01 00 | 00 40 00 00 00 00 18 3c |MSBA....|.@.....<|
|000024d0| 00 00 4d 53 42 41 4d 53 | 42 41 01 00 01 00 00 40 |..MSBAMS|BA.....@|
|000024e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000024f0| 00 00 9c de 59 9e 00 00 | 23 d2 00 00 02 7e 00 00 |....Y...|#....~..|
|00002500| 00 01 04 1a 5a 0f 04 1d | 44 4d 6f 6e 69 74 6f 72 |....Z...|DMonitor|
|00002510| 2e 73 69 74 20 69 73 20 | 61 20 70 72 6f 67 72 61 |.sit is |a progra|
|00002520| 6d 20 66 6f 72 20 6d 6f | 6e 69 74 6f 72 69 6e 67 |m for mo|nitoring|
|00002530| 20 74 68 65 20 73 65 72 | 69 61 6c 20 70 6f 72 74 | the ser|ial port|
|00002540| 73 20 6f 66 20 74 68 65 | 20 4d 61 63 2e 03 a4 da |s of the| Mac....|
|00002550| 00 0a 00 00 00 64 69 73 | 74 72 69 62 75 74 65 64 |.....dis|tributed|
|00002560| 20 61 73 20 55 4e 44 45 | 52 77 61 72 65 2e 00 58 | as UNDE|Rware..X|
|00002570| 00 01 00 3f 93 ea 00 2b | 77 68 00 40 1b bc 00 3d |...?...+|wh.@...=|
|00002580| 00 00 00 0d 42 61 73 69 | 63 20 50 72 6f 67 72 61 |....Basi|c Progra|
|00002590| 6d 00 00 01 00 0d 42 61 | 73 69 63 20 50 72 6f 67 |m.....Ba|sic Prog|
|000025a0| 72 61 6d 20 44 65 73 63 | 72 69 70 74 69 6f 6e 00 |ram Desc|ription.|
|000025b0| 00 00 f0 6e 43 6f 64 65 | 16 54 65 6c 65 46 69 6e |...nCode|.TeleFin|
|000025c0| 64 65 72 20 44 65 73 63 | 72 69 70 74 69 6f 6e 00 |der Desc|ription.|
|000025d0| 00 01 8a 00 04 f7 40 22 | 50 72 6f 67 72 61 6d 65 |......@"|Programe|
|000025e0| 72 73 20 44 41 20 6c 61 | 74 65 73 74 20 76 65 72 |rs DA la|test ver|
|000025f0| 73 69 6f 6e 20 2d 20 31 | 2e 35 75 72 70 6f 73 65 |sion - 1|.5urpose|
|00002600| 20 74 65 78 74 20 65 64 | 69 74 6f 72 2e 20 41 6c | text ed|itor. Al|
|00002610| 6c 6f 77 73 20 79 6f 75 | 20 74 6f 20 69 6d 70 6f |lows you| to impo|
|00002620| 72 74 20 77 6f 72 64 20 | 70 72 6f 63 65 73 73 6f |rt word |processo|
|00002630| 72 20 64 6f 63 75 6d 65 | 6e 74 73 20 62 79 20 65 |r docume|nts by e|
|00002640| 6e 74 65 72 69 6e 67 20 | 74 68 65 20 64 6f 63 75 |ntering |the docu|
|00002650| 6d 65 6e 74 73 20 22 73 | 69 67 6e 61 74 75 72 65 |ments "s|ignature|
|00002660| 22 2e 20 53 68 61 72 65 | 77 61 72 65 2e 20 53 74 |". Share|ware. St|
|00002670| 75 66 66 49 74 2d 66 6f | 72 6d 61 74 20 66 69 6c |uffIt-fo|rmat fil|
|00002680| 65 2e 20 00 00 03 54 74 | 72 61 73 68 20 69 74 21 |e. ...Tt|rash it!|
|00002690| 21 20 20 54 68 00 00 01 | 00 00 00 02 15 00 00 01 |!  Th...|........|
|000026a0| 15 00 00 00 69 00 55 fe | bc 0a 4a 00 00 00 1c 00 |....i.U.|..J.....|
|000026b0| 46 00 01 53 69 74 43 00 | 00 00 12 46 43 4d 54 00 |F..SitC.|...FCMT.|
|000026c0| 00 00 1e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 11 00 00 00 11 00 | 56 39 9c 10 4c 6f 6e 67 |........|V9..Long|
|000026e0| 20 44 65 73 63 72 69 70 | 74 69 6f 6e 11 42 72 69 | Descrip|tion.Bri|
|000026f0| 65 66 20 44 65 73 63 72 | 69 70 74 69 6f 6e 00 00 |ef Descr|iption..|
+--------+-------------------------+-------------------------+--------+--------+